VBA

2023-06-01 15:52| 来源: 网络整理| 查看: 265

一、提取数字和非数字

二、以...结尾

正则规则普遍一致，不再详细介绍

具体内容可参考 python正则表达式-正则基础_一个小白的日常的博客-CSDN博客

一、提取数字和非数字

1、要求

测试1中，文字和数字的位置发生了变化，仅使用excel表的提取方法已存在问题。下面将使用正则方法进行编辑。

2、代码

Function regEx(text As String, t As Integer) 'text 是查找的文本 t 是提取的类型 '------------------------正则中通用的书写方式----------------------- Dim reg As Object '创建一个正则对象 Set reg = CreateObject("VBScript.RegExp") '声明正则对象 '------------------------使用正则规则编写正则代码----------------------- With reg .Global = True '正则属性，表示查找的全部数据 '如果为True，表示查找所有匹配的值 '如果为False，表示查找第一个匹配到的值 If t = 1 Then '编写数字规则 .Pattern = "\d+" ElseIf t = 2 Then '非数字 .Pattern = "\D+" End If '------------------------提取数据----------------------- '声明一个匹配的对象集合,将编写的正则规则与text进行匹配，如果成功，返回内容 Set mc = .Execute(text) '将匹配成功的内容作为自定义函数的返回值 regEx = mc(0) End With End Function

3、结果

二、以...结尾

1、要求

2、代码

Function regEx_cunzai(text As String) '------------------------正则中通用的书写方式----------------------- Dim reg As Object Set reg = CreateObject("VBScript.RegExp") '----------------使用正则规则编写正则代码----------------------- With reg .Global = True .Pattern = "(.*?)\_\D+$" '----------------提取数据----------------------- Set mc = .Execute(text) regEx_cunzai = mc(0) End With End Function

3、结果

【本文地址】

公司简介

联系我们